home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Gold Medal Software 3
/
Gold Medal Software - Volume 3 (Gold Medal) (1994).iso
/
os2
/
cenv2_19.arj
/
BORDER.CMM
< prev
next >
Wrap
Text File
|
1994-03-04
|
681b
|
31 lines
//*** Border.cmm - Draw a border of asterisks on the screen
//*** ver.1
if defined(_WINDOWS_)
ScreenSize(30,30);
DrawAsteriskBorder();
ScreenCursor(1,1);
getch();
DrawAsteriskBorder()
{
size = ScreenSize();
ScreenClear();
// draw top border
ScreenCursor(0,0);
for ( col = 0; col < size.col; col++ )
putchar('*');
// draw bottom border
ScreenCursor(0,size.row-2);
for ( col = 0; col < size.col; col++ )
putchar('*');
// draw left and right borders
for ( row = 0; row < size.row - 1; row++ ) {
ScreenCursor(0,row);
putchar('*');
ScreenCursor(size.col-1,row);
putchar('*');
}
}